Class {
	#name : 'ClySortByDefiningClassFunctionTest',
	#superclass : 'ClySortFunctionTest',
	#category : 'Calypso-SystemQueries-Tests-Queries',
	#package : 'Calypso-SystemQueries-Tests',
	#tag : 'Queries'
}

{ #category : 'tests' }
ClySortByDefiningClassFunctionTest >> testAscending [

	function := ClySortByDefiningClassFunction ascending.

	self deny: (function value: (ClyClassComment of: Object) value: (ClyClassComment of: Array)).
	self assert: (function value: (ClyClassComment of: Array) value: (ClyClassComment of: Object)).
	self assert: (function value: (ClyClassComment of: Object) value: (ClyClassComment of: Object))
]
